-- card: 19225 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 2562
-- name: Name Cardsp


-- part contents for background part 8
----- text -----
%1
%2
%3
% One Name Card © 1987 Kanode Associates
% AutoSize routine © 1987,1988 by Greg Kruckewitt
% Variables 
/LM 0 def
/RM 780 def
/max 660 def % maximum width of text allowed for this card

% New Autosize routine
/fitstring
{  /str exch def
  /size exch def
/Fname exch def
Fname findfont size scalefont setfont
str stringwidth pop /nsize exch def
% only size DOWN if stringsize is GREATER than max
nsize max gt 
{
max nsize div size mul  /nsize exch def
Fname findfont nsize scalefont setfont
str dup stringwidth pop  
/sw exch def} if  % /sw = string width for testing
} def


%------------------END OF HEADER---------------------%

%Rotate & Translate
90 rotate
0 -572 translate

/fourpops
{4{pop} repeat} def

%Draw Boxes
35 8 moveto
 35 235 756 235 18 arcto fourpops
 756 235 756 -10 18 arcto fourpops
 756 -10 25 -10 18 arcto fourpops
 35 -10 35 235 18 arcto fourpops
 
 5 setlinewidth
 1 setlinejoin
 stroke


 45 18 moveto
 45 225 746 215 18 arcto fourpops
 746 225 746 0 18 arcto fourpops
746 0 45 0 18 arcto fourpops
45 0 45 225 18 arcto fourpops


 1 setlinewidth
 1 setlinejoin
 stroke

%NameFont % set the default font usually done in autofit

FontName 96 Name fitstring
RM LM sub  %center the name
Name stringwidth pop sub
2 div
120 moveto

Name show

% set the default title font & size it
%TitleFont 

TitleFontName  64 Title fitstring
RM LM sub %center the title
Title stringwidth pop sub
2 div
23 moveto
Title show
showpage
%grestore